home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / listing 18a (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  648b  |  19 lines
  1. 5 rem programm zum erzeugen eines
  2. 6 rem     22, read error
  3. 7 :
  4. 10 poke 56,31:poke 52,31:clr:open 1,8,15,"i"
  5. 20 forx=0to80:reada:poke32768+x,a:next
  6. 30 input"[147] track fuer error 22";t
  7. 40 input"sektor fuer error 22";s
  8. 50 poke 32777,t:poke 32834,t:poke 32781,s
  9. 60 restore
  10. 70 forx=0to80:print#1,"m-w"chr$(x)chr$(5)chr$(1)chr$(peek(x+32768)):next
  11. 80 print:print:print"programm startet"
  12. 90 print#1,"m-e"chr$(64)chr$(5):close1:end
  13. 100 data165,18,133,22,165,19,133,23,169,35,133,24,169,1,133,25,32,39
  14. 110 data 245,32,86,245,173,12,28,41,31,9,192,141,12,28,169,255,141,3,28
  15. 120 data 169,85,141,1,28,80,254,184,80
  16. 130 data 254,184,80,254,184,32,0,254,76
  17. 140 data 158,253,234,234,234,234,234,234
  18. 150 data 234,234,169,35,133,10,169,224,133,2,165,2,48,252,96,0,0,0
  19.